home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 July to December / Ahoy_Magazine_84-Jul-Dec_1984_Double_L_unofficial.d64 / 64 space lanes (.txt) next >
Encoding:
Commodore BASIC  |  1984-01-01  |  3.3 KB  |  87 lines
  1. 1 poke54287,43:poke54286,52:gosub500:goto700
  2. 2 pl=3:gosub100
  3. 5 pokel,.:pokel+cc,7
  4. 10 j=15-(peek(56321)and15)
  5. 15 d=r(j)
  6. 35 l1=peek(l+d):ifl1=63thend=0:goto10
  7. 37 ifl1=4thenpo=po+5:gosub90
  8. 38 ifint(rnd(0)*10)=9thengosub50
  9. 40 pokel,32:l=l+d:pokel,.:pokel+cc,7:d=0:goto10
  10. 50 r=3+2*int(rnd(0)*10)
  11. 52 r1=((r-1)*40)
  12. 55 forx=1025+r1to1058+r1:pokex,63:pokex+cc,1:nextx
  13. 60 ifl>1024+r1andl<1059+r1thenpl=pl-1:gosub600
  14. 65 forx=1025+r1to1058+r1:pokex,32:nextx:return
  15. 90 poke54296,6:poke54296,0:ifpo>hsthenhs=po
  16. 92 print"[158]";po:poke1034,63:poke1034+cc,7
  17. 93 printtab(29)"[145][145][158]";hs:poke1053,63:poke1053+cc,7
  18. 94 ifpo/900=int(po/900)thengosub400
  19. 96 return
  20. 100 cc=54272:l=1521:d=0:hs=(peek(901)*256)+peek(900)
  21. 102 dimr(10):forx=0to10:reada:r(x)=a:nextx
  22. 105 poke53265,peek(53265)and239
  23. 110 poke53272,(peek(53272)and240)or12
  24. 120 print"[145][158]????????????????????????????????????????"
  25. 130 print"[145][156]????????????????????????????????????????[157][157]"
  26. 140 print"?                                  ?[159]??[158]?[156]?"
  27. 150 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  28. 160 print"[145]?                                  ?[159]??[158]?[156]?"
  29. 170 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  30. 180 print"[145]?                                  ?[159]??[158]?[156]?"
  31. 190 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  32. 200 print"[145]?                                  ?[159]??[158]?[156]?"
  33. 210 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  34. 220 print"[145]?                                  ?[159]??[158]?[156]?"
  35. 230 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  36. 240 print"[145]?                                  ?[159]??[158]?[156]?"
  37. 250 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  38. 260 print"[145]?                                  ?[159]??[158]?[156]?"
  39. 270 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  40. 280 print"[145]?                                  ?[159]??[158]?[156]?"
  41. 290 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  42. 300 print"[145]?                                  ?[159]??[158]?[156]?"
  43. 310 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  44. 320 print"[145]?                                  ?[159]??[158]?[156]?"
  45. 330 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  46. 335 print"[145]?                                  ?[159]??[158]?[156]?"
  47. 350 print"[145]??????????????????????????????????????[158]?[156]?[157][157][157]"
  48. 360 forx=0to39:poke1984+x,63:poke1984+cc+x,3:nextx
  49. 370 poke2022+cc,7:poke2023+cc,4
  50. 380 print"":printtab(38)"[158]s[157]p[157]a[157]c[157]e[157]l[157]a[157]n[157]e[157]s"
  51. 390 print"":print"[159]by,?robert?alonso"
  52. 395 print"[158]score:":print""tab(23)"[158]high:"
  53. 400 forx=1145to1161step2:forx1=0to720step80:pokex+x1,4:pokex+x1+cc,7:nextx1,x
  54. 410 forx=1162to1178step2:forx1=0to720step80:pokex+x1,4:pokex+x1+cc,7:nextx1,x
  55. 415 ifpo>0thenpo=po+5
  56. 420 poke53265,peek(53265)or16:return
  57. 500 print"[147]":poke53280,8:poke53281,6
  58. 520 print"[169]     [169] [223][169] [223]    [169] [223]     [169]  "
  59. 530 print"[145] [223]            [223]   [223]"
  60. 540 print"[223] [223]            [146][223]   [146][223] [223]"
  61. 550 print"[145][223]              [146][223] "
  62. 560 print"[145]  [146][169]   [146][223] [146][169]               [146][169]"
  63. 570 printtab(11)"by, robert alonso"
  64. 580 return
  65. 600 v=54296:forx=54272to54296:pokex,0:nextx
  66. 605 poke54273,30:poke54272,25:poke54277,15:poke54278,40
  67. 610 poke54276,129:forx=9to15step2:pokev,x:forx1=1to45:nextx1,x:pokev,0
  68. 620 poke54273,25:forx=15to10step-1:pokev,x:forx1=1to50:nextx1,x:pokev,0:pokev,1
  69. 630 poke54273,30:forx=15to0step-1:pokev,x:forx1=1to40:nextx1,x
  70. 640 ifpl=0then660
  71. 650 return
  72. 660 h1=int(hs/256):h2=hs-h1*256
  73. 670 poke900,h2:poke901,h1
  74. 680 print"[147]":poke53272,21:end
  75. 700 ifpeek(12288)<>24thenpoke900,0:poke901,0
  76. 704 forx=0to10:reada:nextx
  77. 705 poke56334,peek(56334)and254:poke1,peek(1)and251
  78. 710 forx=12288to12799:pokex,peek(x+41984):nextx
  79. 720 poke1,peek(1)or4:poke56334,peek(56334)or1
  80. 730 forx=0to7:reada:poke12288+x,a:nextx
  81. 740 forx=0to7:reada:poke12320+x,a:nextx
  82. 750 forx=0to7:poke12544+x,0:poke12792+x,255:nextx
  83. 760 poke52,48:poke56,48:clr:goto2
  84. 800 data0,-40,40,0,-1,-41,39,0,1,-39,41
  85. 810 data24,60,126,24,189,231,195,129
  86. 820 data0,0,0,24,24,0,0,0
  87.